home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / ENGINEER / CAM / 1172.ZIP / BARREL.APT < prev    next >
Text File  |  1990-09-01  |  1KB  |  39 lines
  1. PARTNO BARREL TEST SHAPE PROGRAM
  2. MACHIN/MILL1,1               $$ This program machines traces
  3. PRINT/ON                     $$ along a barrell shaped part.
  4. C1=CIRCLE/0,0,4              $$ This is a good program to check
  5. P1=POINT/C1,ATANGL,45        $$ the graphic display of tool path
  6. P2=POINT/C1,ATANGL,135       $$ (plotting) features.  Use persp-
  7. L1=LINE/P1,(POINT/CENTER,C1) $$ ective mode and Window command.
  8. L2=LINE/P2,(POINT/CENTER,C1) $$ You can inspect the tool path from
  9. PL1=PLANE/0,0,1,0            $$ different eye positions.  Use Pitch,
  10. SPINDL/1800,RPM,RANGE,2      $$ Yaw and Roll angle changes and REPAINT.
  11. FEDRAT/.01,IPR               $$
  12. CUTTER/.5,.25                $$ Remember to read the documentation.
  13. INTOL/.005
  14. OUTTOL/.005
  15. FROM/0,0,10
  16. LOADTL/1,LENGTH,5
  17. A=45
  18. AGAIN: TRACUT/(MATRIX/YZROT,A)
  19.        DNTCUT
  20.        GOTO/0,0,10
  21.        INDIRP/P1
  22.        GO/PAST,C1,PL1,ON,L1
  23.        CUT
  24.        TLRGT,GOLFT/C1,ON,L2
  25.        TRACUT/(MATRIX/YZROT,(A+5))
  26.        DNTCUT
  27.        GOTO/0,0,10
  28.        INDIRP/P2
  29.        GO/PAST,C1,PL1,ON,L2
  30.        CUT
  31.        TLLFT,GORGT/C1,ON,L1
  32.        A= A + 10
  33.        IF (A - 135) AGAIN, QUIT, QUIT
  34. QUIT: TRACUT/NOMORE
  35. RAPID,GOTO/0,0,5
  36. PPLOT
  37. END
  38. FINI
  39.